home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / gnulib2.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  2.2 KB  |  115 lines
  1. require 'stddef.ph';
  2. if (!defined &SItype) {
  3.     eval 'sub SItype {\'long\' \'int\';}';
  4. }
  5. if (defined &WORDS_BIG_ENDIAN) {
  6. }
  7. else {
  8. }
  9. sub B {0x10000;}
  10. sub low16 {( &B - 1);}
  11. if (defined &BYTES_BIG_ENDIAN) {
  12.     eval 'sub HIGH {0;}';
  13.     eval 'sub LOW {1;}';
  14.     eval 'sub big_end {
  15.         local($n) = @_;
  16.         eval "0";
  17.     }';
  18.     eval 'sub little_end {
  19.         local($n) = @_;
  20.         eval "(($n) - 1)";
  21.     }';
  22.     eval 'sub next_msd {
  23.         local($i) = @_;
  24.         eval "(($i) - 1)";
  25.     }';
  26.     eval 'sub next_lsd {
  27.         local($i) = @_;
  28.         eval "(($i) + 1)";
  29.     }';
  30.     eval 'sub is_not_msd {
  31.         local($i,$n) = @_;
  32.         eval "(($i) >= 0)";
  33.     }';
  34.     eval 'sub is_not_lsd {
  35.         local($i,$n) = @_;
  36.         eval "(($i) < ($n))";
  37.     }';
  38. }
  39. else {
  40.     eval 'sub LOW {0;}';
  41.     eval 'sub HIGH {1;}';
  42.     eval 'sub big_end {
  43.         local($n) = @_;
  44.         eval "(($n) - 1)";
  45.     }';
  46.     eval 'sub little_end {
  47.         local($n) = @_;
  48.         eval "0";
  49.     }';
  50.     eval 'sub next_msd {
  51.         local($i) = @_;
  52.         eval "(($i) + 1)";
  53.     }';
  54.     eval 'sub next_lsd {
  55.         local($i) = @_;
  56.         eval "(($i) - 1)";
  57.     }';
  58.     eval 'sub is_not_msd {
  59.         local($i,$n) = @_;
  60.         eval "(($i) < ($n))";
  61.     }';
  62.     eval 'sub is_not_lsd {
  63.         local($i,$n) = @_;
  64.         eval "(($i) >= 0)";
  65.     }';
  66. }
  67. if (defined &L_adddi3) {
  68. }
  69. if (defined &L_anddi3) {
  70. }
  71. if (defined &L_iordi3) {
  72. }
  73. if (defined &L_xordi3) {
  74. }
  75. if (defined &L_one_cmpldi2) {
  76. }
  77. if (defined &L_lshldi3) {
  78. }
  79. if (defined &L_lshrdi3) {
  80. }
  81. if (defined &L_ashldi3) {
  82. }
  83. if (defined &L_ashrdi3) {
  84. }
  85. if (defined &L_subdi3) {
  86. }
  87. if (defined &L_muldi3) {
  88. }
  89. if (defined &L_divdi3) {
  90. }
  91. if (defined &L_moddi3) {
  92. }
  93. if (defined &L_udivdi3) {
  94. }
  95. if (defined &L_umoddi3) {
  96. }
  97. if (defined &L_negdi2) {
  98. }
  99. if (defined &L_bdiv) {
  100. }
  101. if (defined &L_cmpdi2) {
  102. }
  103. if (defined &L_ucmpdi2) {
  104. }
  105. if (defined &L_fixunsdfdi) {
  106.     eval 'sub HIGH_WORD_COEFF {(((\'long\' \'long\') 1) <<  &BITS_PER_WORD);}';
  107. }
  108. if (defined &L_fixdfdi) {
  109. }
  110. if (defined &L_floatdidf) {
  111.     eval 'sub HIGH_HALFWORD_COEFF {(((\'long\' \'long\') 1) << ( &BITS_PER_WORD / 2));}';
  112.     eval 'sub HIGH_WORD_COEFF {(((\'long\' \'long\') 1) <<  &BITS_PER_WORD);}';
  113. }
  114. 1;
  115.